home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].po / MOUSE.FIND.bas < prev    next >
BASIC Source File  |  1996-12-24  |  449b  |  10 lines
  1. 10  REM  PROGRAM MOUSE.FIND
  2. 20  REM  FINDS MOUSE FIRMWARE
  3. 30 S1 = 49420:S2 = 49659
  4. 40 SL = 1: REM  START LOOKING SLOT ONE
  5. 50  IF  PEEK(S1) = 32  AND  PEEK(S2) = 214  THEN 90
  6. 60 SL = SL +1: IF SL = 3  THEN S1 = S1 +256:S2 = S2 +256: GOTO 60: REM   SKIP SLOT 3
  7. 70  IF SL <8  THEN S1 = S1 +256:S2 = S2 +256: GOTO 50
  8. 80  PRINT  CHR$(7): PRINT "NO MOUSE IN THE COMPUTER": END 
  9. 90  HOME : VTAB 10: HTAB 10:S = SL: PRINT "MOUSE FOUND IN SLOT# ";S
  10. 100  END